object UMantenimientoServicios: TUMantenimientoServicios
  Left = 0
  Top = 0
  Caption = 'Mantenimiento de Servicios'
  ClientHeight = 578
  ClientWidth = 657
  Color = clBtnFace
  OldCreateOrder = False
  OnCreate = UniFormCreate
  MonitoredKeys.Keys = <>
  PixelsPerInch = 96
  TextHeight = 13
  object pgServicios: TUniPageControl
    Left = 0
    Top = 0
    Width = 657
    Height = 578
    ParentShowHint = False
    ActivePage = UniTabSheet1
    TabOrder = 0
    Align = alClient
    Anchors = [akLeft, akTop, akRight, akBottom]
    object UniTabSheet1: TUniTabSheet
      Caption = 'Mantenimiento'
      object pnlBuscar: TUniPanel
        Left = 259
        Top = 41
        Width = 387
        Height = 509
        Color = clCream
        TabOrder = 0
        object cbxFechaEmision: TUniCheckBox
          Left = 678
          Top = 6
          Width = 136
          Height = 17
          Checked = False
          Caption = 'Fecha de emision:'
          ParentFont = False
          Font.Height = -13
          Font.Name = 'Century Gothic'
          TabOrder = 1
        end
        object dbDesdeC: TUniDateTimePicker
          Left = 725
          Top = 33
          Width = 120
          Height = 21
          DateTime = 41043.000000000000000000
          DateFormat = 'dd/MM/yyyy'
          TimeFormat = 'HH:mm:ss'
          Kind = tUniDate
          FirstDayOfWeek = dowLocaleDefault
          TabOrder = 2
          ParentColor = False
          Color = clWhite
        end
        object dbHastaC: TUniDateTimePicker
          Left = 725
          Top = 60
          Width = 120
          Height = 21
          DateTime = 41043.000000000000000000
          DateFormat = 'dd/MM/yyyy'
          TimeFormat = 'HH:mm:ss'
          Kind = tUniDate
          FirstDayOfWeek = dowLocaleDefault
          TabOrder = 3
          ParentColor = False
          Color = clWhite
        end
        object lblDesde: TUniLabel
          Left = 675
          Top = 34
          Width = 44
          Height = 17
          Caption = 'Desde:'
          ParentFont = False
          Font.Height = -13
          Font.Name = 'Century Gothic'
          TabOrder = 4
        end
        object lblHasta: TUniLabel
          Left = 678
          Top = 61
          Width = 41
          Height = 17
          Caption = 'Hasta:'
          ParentFont = False
          Font.Height = -13
          Font.Name = 'Century Gothic'
          TabOrder = 5
        end
        object pnlBotones: TUniPanel
          Left = 1
          Top = 468
          Width = 385
          Height = 41
          Align = alBottom
          Anchors = [akLeft, akRight, akBottom]
          Color = clBtnFace
          TabOrder = 6
          object btnNuevo: TUniButton
            Left = 20
            Top = 10
            Width = 101
            Height = 25
            Caption = 'Nueva Categor'#237'a'
            TabOrder = 1
            OnClick = btnNuevoClick
          end
          object btnModificar: TUniButton
            Left = 127
            Top = 10
            Width = 75
            Height = 25
            Caption = 'Modificar'
            TabOrder = 2
            OnClick = btnModificarClick
          end
          object btnBaja: TUniButton
            Left = 208
            Top = 10
            Width = 75
            Height = 25
            Caption = 'Dar de Baja'
            TabOrder = 3
            OnClick = btnBajaClick
          end
          object btnCancelar: TUniButton
            Left = 289
            Top = 10
            Width = 75
            Height = 25
            Caption = 'Cancelar'
            TabOrder = 4
            OnClick = btnCancelarClick
          end
        end
        object dbCodigo: TUniDBEdit
          Left = 32
          Top = 43
          Width = 121
          Height = 22
          Enabled = False
          DataField = 'ID_SERVICIO_PRODUCTO'
          DataSource = dsServicios
          PasswordChar = #0
          CharCase = ecNormal
          MaxLength = 0
          CharEOL = #0
          ParentFont = False
          Font.Charset = ANSI_CHARSET
          Font.Name = 'Century Gothic'
          TabOrder = 7
          Color = clWindow
        end
        object dbServicio: TUniDBEdit
          Left = 32
          Top = 99
          Width = 329
          Height = 22
          DataField = 'NOMBRE_SERVICIO'
          DataSource = dsServicios
          PasswordChar = #0
          CharCase = ecNormal
          MaxLength = 0
          CharEOL = #0
          ParentFont = False
          Font.Charset = ANSI_CHARSET
          Font.Name = 'Century Gothic'
          TabOrder = 8
          Color = clWindow
        end
        object dbDescripcion: TUniDBMemo
          Left = 32
          Top = 158
          Width = 331
          Height = 171
          DataField = 'DESCRIPCION'
          DataSource = dsServicios
          ParentFont = False
          Font.Charset = ANSI_CHARSET
          Font.Name = 'Century Gothic'
          TabOrder = 9
          Color = clWindow
        end
        object lblCodigo: TUniLabel
          Left = 32
          Top = 24
          Width = 43
          Height = 16
          Caption = 'C'#243'digo:'
          ParentFont = False
          Font.Charset = ANSI_CHARSET
          Font.Name = 'Century Gothic'
          TabOrder = 10
        end
        object lblServicio: TUniLabel
          Left = 32
          Top = 80
          Width = 45
          Height = 16
          Caption = 'Servicio:'
          ParentFont = False
          Font.Charset = ANSI_CHARSET
          Font.Name = 'Century Gothic'
          TabOrder = 11
        end
        object lblDescripcion: TUniLabel
          Left = 32
          Top = 139
          Width = 65
          Height = 16
          Caption = 'Descripci'#243'n:'
          ParentFont = False
          Font.Charset = ANSI_CHARSET
          Font.Name = 'Century Gothic'
          TabOrder = 12
        end
        object dbCodigoPrinc: TUniDBEdit
          Left = 32
          Top = 43
          Width = 121
          Height = 22
          Enabled = False
          DataField = 'ID_SERVICIO_PRODUCTO'
          DataSource = dsServicioPrinc
          PasswordChar = #0
          CharCase = ecNormal
          MaxLength = 0
          CharEOL = #0
          ParentFont = False
          Font.Charset = ANSI_CHARSET
          Font.Name = 'Century Gothic'
          TabOrder = 13
          Color = clWindow
        end
        object dbServicioPrinc: TUniDBEdit
          Left = 32
          Top = 99
          Width = 329
          Height = 22
          DataField = 'NOMBRE_SERVICIO'
          DataSource = dsServicioPrinc
          PasswordChar = #0
          CharCase = ecNormal
          MaxLength = 0
          CharEOL = #0
          ParentFont = False
          Font.Charset = ANSI_CHARSET
          Font.Name = 'Century Gothic'
          TabOrder = 14
          Color = clWindow
        end
        object dbDescPrinc: TUniDBMemo
          Left = 32
          Top = 158
          Width = 331
          Height = 171
          DataField = 'DESCRIPCION'
          DataSource = dsServicioPrinc
          ParentFont = False
          Font.Charset = ANSI_CHARSET
          Font.Name = 'Century Gothic'
          TabOrder = 15
          Color = clWindow
        end
      end
      object dbgCategorias: TUniDBGrid
        Left = 0
        Top = 41
        Width = 261
        Height = 196
        DataSource = dsServicioPrinc
        Options = [dgEditing, dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit, dgTitleClick, dgTitleHotTrack]
        ReadOnly = True
        WebOptions.LoadMaskMsg = 'Please wait...'
        OnDrawColumnCell = dbgCategoriasDrawColumnCell
        OnEnter = dbgCategoriasEnter
        StripeRows = False
        TabOrder = 1
        Columns = <
          item
            FieldName = 'ID_SERVICIO_PRODUCTO'
            Title.Caption = 'C'#243'digo'
            Width = 46
            Visible = True
            Expanded = False
          end
          item
            FieldName = 'NOMBRE_SERVICIO'
            Title.Caption = 'Categor'#237'a'
            Width = 197
            Visible = True
            Expanded = False
          end>
      end
      object pnlTitulo: TUniPanel
        Left = 0
        Top = 0
        Width = 649
        Height = 41
        Align = alTop
        Anchors = [akLeft, akTop, akRight]
        Color = clBtnFace
        TabOrder = 2
        object lblConsultaServicios: TUniLabel
          Left = 1
          Top = 1
          Width = 647
          Height = 39
          Alignment = taCenter
          AutoSize = False
          Caption = 'Mantenimiento de Servicios'
          Align = alClient
          Anchors = [akLeft, akTop, akRight, akBottom]
          ParentFont = False
          Font.Color = clNavy
          Font.Height = -17
          Font.Name = 'Century Gothic'
          Font.Style = [fsBold]
          ParentColor = False
          Color = clSkyBlue
          Transparent = False
          TabOrder = 1
        end
      end
      object dbgServicios: TUniDBGrid
        Left = 0
        Top = 236
        Width = 261
        Height = 317
        DataSource = dsServicios
        Options = [dgEditing, dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit, dgTitleClick, dgTitleHotTrack]
        ReadOnly = True
        WebOptions.LoadMaskMsg = 'Please wait...'
        OnDrawColumnCell = dbgServiciosDrawColumnCell
        OnEnter = dbgServiciosEnter
        StripeRows = False
        TabOrder = 3
        Columns = <
          item
            FieldName = 'ID_SERVICIO_PRODUCTO'
            Title.Caption = 'C'#243'digo'
            Width = 46
            Visible = True
            Expanded = False
          end
          item
            FieldName = 'NOMBRE_SERVICIO'
            Title.Caption = 'Servicios'
            Width = 197
            Visible = True
            Expanded = False
          end>
      end
    end
  end
  object qryServicios: TSQLQuery
    GetMetadata = True
    MaxBlobSize = -1
    Params = <
      item
        DataType = ftString
        Name = 'servicio_princ'
        ParamType = ptInput
        Size = 2
      end>
    SQL.Strings = (
      'select a.*'
      'from servicio a'
      'where a.id_principal = :servicio_princ and'
      'substring(a.id_servicio_producto from 4 for 4) <> '#39'0000'#39
      '')
    SQLConnection = UniMainModule.SQLConnection_Reg1
    Left = 320
    Top = 464
    object qryServiciosID_SERVICIO_PRODUCTO: TStringField
      FieldName = 'ID_SERVICIO_PRODUCTO'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
      FixedChar = True
      Size = 7
    end
    object qryServiciosNOMBRE_SERVICIO: TStringField
      FieldName = 'NOMBRE_SERVICIO'
      Size = 255
    end
    object qryServiciosDESCRIPCION: TStringField
      FieldName = 'DESCRIPCION'
      Size = 100
    end
    object qryServiciosESTADO_REGISTRO: TStringField
      FieldName = 'ESTADO_REGISTRO'
      Required = True
      FixedChar = True
      Size = 1
    end
    object qryServiciosAUTORIZADOR: TStringField
      FieldName = 'AUTORIZADOR'
      FixedChar = True
      Size = 6
    end
    object qryServiciosID_PRINCIPAL: TStringField
      FieldName = 'ID_PRINCIPAL'
      Required = True
      FixedChar = True
      Size = 7
    end
  end
  object cdsServicios: TClientDataSet
    Aggregates = <>
    IndexFieldNames = 'ID_PRINCIPAL'
    MasterFields = 'ID_PRINCIPAL'
    MasterSource = dsServicioPrinc
    PacketRecords = 0
    Params = <
      item
        DataType = ftString
        Name = 'servicio_princ'
        ParamType = ptInput
      end>
    ProviderName = 'provServicios'
    OnNewRecord = cdsServiciosNewRecord
    Left = 552
    Top = 464
    object cdsServiciosID_SERVICIO_PRODUCTO: TStringField
      FieldName = 'ID_SERVICIO_PRODUCTO'
      Required = True
      FixedChar = True
      Size = 7
    end
    object cdsServiciosNOMBRE_SERVICIO: TStringField
      FieldName = 'NOMBRE_SERVICIO'
      Size = 255
    end
    object cdsServiciosDESCRIPCION: TStringField
      FieldName = 'DESCRIPCION'
      Size = 100
    end
    object cdsServiciosESTADO_REGISTRO: TStringField
      FieldName = 'ESTADO_REGISTRO'
      Required = True
      FixedChar = True
      Size = 1
    end
    object cdsServiciosAUTORIZADOR: TStringField
      FieldName = 'AUTORIZADOR'
      FixedChar = True
      Size = 6
    end
    object cdsServiciosID_PRINCIPAL: TStringField
      FieldName = 'ID_PRINCIPAL'
      Required = True
      FixedChar = True
      Size = 7
    end
  end
  object dsServicios: TDataSource
    DataSet = cdsServicios
    OnStateChange = dsServiciosStateChange
    OnDataChange = dsServiciosDataChange
    Left = 400
    Top = 464
  end
  object provServicios: TDataSetProvider
    DataSet = qryServicios
    Left = 472
    Top = 464
  end
  object qryServicioPrinc: TSQLQuery
    GetMetadata = True
    MaxBlobSize = -1
    Params = <>
    SQL.Strings = (
      'select a.*'
      'from servicio a'
      'where substring(a.id_servicio_producto from 4 for 4) = '#39'0000'#39
      '')
    SQLConnection = UniMainModule.SQLConnection_Reg1
    Left = 320
    Top = 416
    object qryServicioPrincID_SERVICIO_PRODUCTO: TStringField
      FieldName = 'ID_SERVICIO_PRODUCTO'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
      FixedChar = True
      Size = 7
    end
    object qryServicioPrincNOMBRE_SERVICIO: TStringField
      FieldName = 'NOMBRE_SERVICIO'
      Size = 255
    end
    object qryServicioPrincDESCRIPCION: TStringField
      FieldName = 'DESCRIPCION'
      Size = 100
    end
    object qryServicioPrincESTADO_REGISTRO: TStringField
      FieldName = 'ESTADO_REGISTRO'
      Required = True
      FixedChar = True
      Size = 1
    end
    object qryServicioPrincAUTORIZADOR: TStringField
      FieldName = 'AUTORIZADOR'
      FixedChar = True
      Size = 6
    end
    object qryServicioPrincID_PRINCIPAL: TStringField
      FieldName = 'ID_PRINCIPAL'
      Required = True
      FixedChar = True
      Size = 7
    end
  end
  object cdsServicioPrinc: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'provServicioPrinc'
    OnNewRecord = cdsServicioPrincNewRecord
    Left = 552
    Top = 416
    object cdsServicioPrincID_SERVICIO_PRODUCTO: TStringField
      FieldName = 'ID_SERVICIO_PRODUCTO'
      Required = True
      FixedChar = True
      Size = 7
    end
    object cdsServicioPrincNOMBRE_SERVICIO: TStringField
      FieldName = 'NOMBRE_SERVICIO'
      Size = 255
    end
    object cdsServicioPrincID_PRINCIPAL: TStringField
      FieldName = 'ID_PRINCIPAL'
      Required = True
      FixedChar = True
      Size = 7
    end
    object cdsServicioPrincDESCRIPCION: TStringField
      FieldName = 'DESCRIPCION'
      Size = 100
    end
    object cdsServicioPrincESTADO_REGISTRO: TStringField
      FieldName = 'ESTADO_REGISTRO'
      Required = True
      FixedChar = True
      Size = 1
    end
    object cdsServicioPrincAUTORIZADOR: TStringField
      FieldName = 'AUTORIZADOR'
      FixedChar = True
      Size = 6
    end
  end
  object dsServicioPrinc: TDataSource
    DataSet = cdsServicioPrinc
    OnStateChange = dsServicioPrincStateChange
    OnDataChange = dsServicioPrincDataChange
    Left = 400
    Top = 416
  end
  object provServicioPrinc: TDataSetProvider
    DataSet = qryServicioPrinc
    Left = 472
    Top = 416
  end
end
